Top 10k strings from Spectrum Musicmaker (1984)(Your Computer)[a].tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   1 mstart=35000
   1 mend=65004
   1 mcode=34273
   1 lms=mstart
   1 hilim=cmax
   1 e$="                                "
   1 cst=mstart:
   1 cst,cend-cst+1
   1 cend=mend+3
   1 beepcode  4
   1 a(hilim)+2
   1 MUSICMAKERK"F
   1 ;lolim;" to ";hilim;"      "
   1 ;"to load."
   1 ;"Please wait for the machine code"'
   1 ;"PUT DATA TAPE INTO RECORDER"
   1 ;"PLAY DATA TAPE"
   1 ;"MODE = ";
   1 ;"MAX=7500"
   1 ;"CS  Z  X  C  V  B  N  M SS SPC"
   1 ;" The keys you should use are :- "
   1 ;" SPECTRUM MUSICMAKER "
   1 ;" SET OCTAVE "  
   1 ;" Gb Ab Bb";
   1 ;" F# G# A#";
   1 ;" F  G  H ";
   1 ;" Db Eb";
   1 ;" C# D#";
   1 ;" C  D  E  F  G  A  B  C  D  E "
   1 ;" A  S ";
   1 ;" 1  2  3  4 ";
   1 ;"            ";
   1 ;"                              "
   1 )=mstart+4
   1 ((xx-mstart)/4
   1 '''''''''"PLEASE WAIT A FEW MOMENTS LONGER"
   1 '''"Enter new values for loop limits"
   1 '''" R replays from counter onwards."
   1 '''"      S  for slow tempo."
   1 ''"     A  to stop playback."
   1 '"SAVING ""music"" CODE ";cst;",";cend-cst+1
   1 '" C to reset counter,than replay."
   1 '" A to save all of music memory."
   1 '"   P to save part of memory."
   1 '"     S  for slow tempo."
   1 '"     N  for normal tempo."
   1 '"     F  for fast tempo."
   1 '"      N  for normal tempo."
   1 '"      F  for fast tempo."
   1 '"       From ";
   1 '"           Y.C. 1984."
   1 "beepcode"
   1 "Your choise? ";a$
   1 "SLOW","NORMAL","FAST"
   1 "REPLAY  TEMPO  = NORMAL"
   1 "New value for counter? ";c
   1 "MEMORY COUNTER = 0";
   1 "Low value for counter? ";n
   1 "Low limit? ";n
   1 "LOOP   LIMITS  = 0 to 7500"
   1 "High value for counter? ";z
   1 "High limit? ";n
   1 "9900 FOR z=m$ TO m$+nb-2 STEP 2                                 9910 IF PEEK z THEN BEEP PEEK (z+1)*.025, PEEK z-13: GO TO 9930                                 9920 IF PEEK (z+1)>20 THEN PAUSEPEEK (z+1)                                                      9930 NEXT z                                                     9940 RETURN                                                           press 'R' to return"
   1 " The next subroutine can be usedto replay music code saved from this program. Before calling it,you must assign variablers 
   1 "   Z = Beep."
   1 "   U = Using in your programs."
   1 "   T = Set replay tempo."
   1 "   STANDBY","    BEEP","BEEP & STORE","   REPLAY","LOOP REPLAY","  TAPE SAVE","  TAPE LOAD"
   1 "   S = Save music to tape."
   1 "   R = Replay music."
   1 "   P = Loop replay."
   1 "   L = Set loop limits."
   1 "   J = Load music from tape."
   1 "   C = Set counter."
   1 "   B = Beep and store."
   1 "   0 = End program."
   1 "         PRESS ANY KEY               TO SEE THE SUBROUTINE"
   1  to a   suitable value before loading   the music code. To remove the   pauses between notes, take out  line 9920."
   1  (number of bytes). Remember to 
   1    (address of first byte of music code) and